home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Shareware City / Developers / RLaB / rlib / pause.r < prev    next >
Encoding:
Text File  |  1994-02-21  |  484 b   |  22 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    pause ( )
  4.  
  5. //  Description:
  6.  
  7. //  The pause function stops execution of an RLaB program until the
  8. //  return key is pressed.
  9.  
  10. //  See Also: fprintf, getline
  11. //-------------------------------------------------------------------//
  12.  
  13. pause = function ( message )
  14. {
  15.   if (!exist (message))
  16.   { 
  17.     message = "\tHit return to continue"; 
  18.   }
  19.   fprintf ("stdout", "%s\n", message);
  20.   getline ("stdin");
  21. };
  22.